10 REM   TEXT BOOT
20 :
30 POKE53281,1:POKE53280,7:PRINT"[147][144]"SPC(9)"[212][197][216][212][210][193][208][207][204][193][212][201][207][206][160][205][197][206][213]"
40 :
50 PRINT""
60 PRINT"  1.  [212][197][216][212][210][193][208][207][204][193][212][201][207][206] -- 1"
70 PRINT"  2.  [212][197][216][212][210][193][208][207][204][193][212][201][207][206] -- 2"
80 PRINT"  3.  [212][197][216][212][210][193][208][207][204][193][212][201][207][206] -- 3"
90 PRINT"  4.  [197]XIT TO [204][207][193][196][211][212][193][210]"
100 PRINT"[215]HICH ?";
110 POKE198,0:WAIT198,1:GETA$:A=VAL(A$)
120 IFA<1ORA>4THEN                          POKE53280,RND(1)*15:GOTO110
130 IFA=1THENF$="TEXTRAPOLATION-1"
132 IFA=2THENF$="TEXTRAPOLATION-2"
134 IFA=3THENF$="TEXTRAPOLATION-3"
136 IFA=4THENF$="PAYLOAD"
138 :
140 PRINTA$;:PRINT"LOADING "F$
150 :
63000 PRINT"[147]LOAD"CHR$(34)F$               CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:        END